home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / DAC23.BAS < prev    next >
BASIC Source File  |  1991-03-18  |  813b  |  34 lines
  1. MODE23             :'MODE 23 DAC PROGRAMMING EXAMPLE BY N. FAVARO 1991
  2.                    :'Must have a VGA or MCGA video card
  3. COORDINATE WINDOW
  4. C=0
  5. FORX=0TO319
  6.    :IFX>31THEN C=C+1
  7.    :IFX>256+31 THEN C=0
  8.    :COLORC
  9.    :PLOTX,0TOX,199
  10. NEXTX
  11.  
  12. "RR"
  13. RANDOM
  14. B=RND(64)-1 :G=RND(64)-1 :R=RND(64)-1
  15. C=0
  16. "R"
  17. PALETTE R,-2
  18. PALETTE G,-3
  19. PALETTE B,-4
  20. PALETTE C,-1
  21. C=C+1:IFC=256 THEN "RR"
  22. IF RND(100)<10 THEN RF=RND(2)*2-3
  23. IF RND(100)<10 THEN GF=RND(2)*2-3
  24. IF RND(100)<10 THEN BF=RND(2)*2-3 :'1=+, -1=-
  25. B=B+BF:G=G+GF:R=R+RF
  26. LONGIF R=64:R=63: RF=-1 :ENDIF
  27. LONGIF B=64:B=63: BF=-1 :ENDIF
  28. LONGIF G=64:G=63: GF=-1 :ENDIF
  29. LONGIF R=-1:R=0 : RF=0  :ENDIF
  30. LONGIF B=-1:B=0 : BF=0  :ENDIF
  31. LONGIF G=-1:G=0 : GF=0  :ENDIF
  32. IFINKEY$<>""THEN END
  33. GOTO"R"
  34.